Gold Medal Software 3/Gold Medal Software - Volume 3 (Gold Medal) (1994).iso/prog/evol202a.arj/OUT2TXT.MNT

Text File | 1993-11-28 | 921b | 48 lines

( DoAll( cmFirstLinecmGoToKid( 1)
cmReport( <^>.PAS( Multiply)
)
@2
cmGoToKid( 2)
cmReport( <^>.PAS( MultTwo)
)
)
Unit <^>; :>   :> .( @7
interface( @19
)
implementation( Function <^>(<^>;<^>) : <^>;( MultiplyTwoNumbers<^> : <^>( OneNumberInteger)
<^> : <^>( AnotherNumber@23
)
@23
begin :> ; :> end;( <^> := :> * ( @20
@22
@25
)
)
)
beginend)
)
Program <^>; :> ; :> .( @13
{<^>}( This program reads in two numbers and prints the productUses Multiply;Var :> ;( <^> : <^> {The first number}( FirstNumberInteger)
<^> : <^> {The second number}( SecondNumber@44
)
<^> : <^> {The answer}( MyResult@44
)
)
)
begin :> ; :> end( readln( :> , :> )( @43
@46
)
<^> := <^>( :> , :> )( @49
@20
@43
@46
)
writeln( :> , :> )( 'The first: '@43
' The Second: '@46
' The Product: '@49
)
)
)
)
 0